home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 31 / Amiga Format CD31 (1998-09-02)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1998-10].iso / -readerstuff- / kevin_mckenna / kaiclock / kaiclock-install next >
Text File  |  1998-07-16  |  6KB  |  257 lines
  1. (message "\nKaiClock © 1998 Kai Software\n\n\n"
  2.          "This script will install KaiClock "
  3.          "on your hard drive")
  4.  
  5. (set default-dest
  6.      (tackon (askdir (prompt "Where would you like to install KaiClock?\n"
  7.                              "A drawer called 'KaiClock' will be created there.")
  8.                      (help @askdir-help)
  9.                      (default @default-dest)
  10.    )
  11. "KaiClock"                    
  12.      )
  13. )
  14. (set @default-dest default-dest)
  15. (complete 30)
  16. (makedir @default-dest
  17.          (infos)
  18. )
  19.  
  20. ;**********************
  21. ; Copying the Keyfile
  22. ;**********************
  23.  
  24. (copyfiles (source "KaiClock/Keyfile")
  25.            (dest (tackon @default-dest "S:"))           
  26. (all)
  27. )
  28.  
  29. ;**************************
  30. ;   Copying the Font
  31. ;**************************
  32.  
  33. (copyfiles (source "KaiClock/Fonts")
  34.            (dest (tackon @default-dest "FONTS:"))           
  35. (all)
  36. )
  37.  
  38. ;****************************
  39. ; Ask which and install icons
  40. ;****************************
  41. (set #ICONS
  42.     (askchoice
  43.     (prompt "\nWhich type of icons do want to install?")
  44.     (help "\nHi! Just select one of the icon types.")
  45.     (default 2)
  46.     (choices
  47.         "MagicWB Icons"
  48.         "NewIcons"
  49.         "Standard Workbench Icons"
  50.         )
  51.     )
  52.  
  53. )
  54.  
  55. ;*************
  56. ;* MWB Icons *
  57. ;*************
  58.  
  59. ;**********************************
  60. ; (MWB)  Start Copying Docs + Icon
  61. ;**********************************
  62.  
  63. (if (= #ICONS 0)
  64. (copyfiles (source "KaiClock/Docs")
  65.            (dest (tackon @default-dest "Docs"))           
  66. (all)
  67. )
  68. )
  69. (if (= #ICONS 0)
  70. (copyfiles (source "KaiClock/Icons/MWB/Docs")
  71.            (dest (tackon @default-dest "Docs"))           
  72. (all)
  73. )
  74. )
  75. (if (= #ICONS 0)
  76.  (copyfiles (source "KaiClock/Icons/MWB/Docs.info") (dest @default-dest))
  77. )
  78.  
  79. ;************************************
  80. ;  (MWB)  Finish Copying Docs + Icon
  81. ;************************************
  82.  
  83. ;*********************************************
  84. ; (MWB)  Start Copying AppIcon Drawer + Icon
  85. ;*********************************************
  86.  
  87.  
  88. (if (= #ICONS 0)
  89. (copyfiles (source "KaiClock/AppIcon")
  90.            (dest (tackon @default-dest "AppIcon"))           
  91. (all)
  92. )
  93. )
  94. (if (= #ICONS 0)
  95. (copyfiles (source "KaiClock/Icons/MWB/AppIcon")
  96.            (dest (tackon @default-dest "AppIcon"))           
  97. (all)
  98. )
  99. )
  100. (if (= #ICONS 0)
  101.  (copyfiles (source "KaiClock/Icons/MWB/AppIcon.info") (dest @default-dest))
  102. )
  103.  
  104. ;**********************************************
  105. ; (MWB)  Finish Copying AppIcon Drawer + Icon
  106. ;**********************************************
  107.  
  108. ;***************************************
  109. ; (MWB)  Start Copying KaiClock + Icon 
  110. ;***************************************
  111.  
  112.  
  113. (if (= #ICONS 0)
  114.  (copyfiles (source "KaiClock/KaiClock") (dest @default-dest))
  115. )
  116.  
  117. (if (= #ICONS 0)
  118.  (copyfiles (source "KaiClock/Icons/MWB/Kaiclock.info") (dest @default-dest))
  119. )
  120.  
  121. ;******************************************
  122. ; (MWB)  Finishing Copying KaiClock + Icon 
  123. ;******************************************
  124.  
  125. ;************
  126. ;* NewIcons *
  127. ;************
  128.  
  129. ;**********************************
  130. ; (NI)  Start Copying Docs + Icon
  131. ;**********************************
  132.  
  133. (if (= #ICONS 1)
  134. (copyfiles (source "KaiClock/Docs")
  135.            (dest (tackon @default-dest "Docs"))           
  136. (all)
  137. )
  138. )
  139. (if (= #ICONS 1)
  140. (copyfiles (source "KaiClock/Icons/NewIcons/Docs")
  141.            (dest (tackon @default-dest "Docs"))           
  142. (all)
  143. )
  144. )
  145. (if (= #ICONS 1)
  146.  (copyfiles (source "KaiClock/Icons/NewIcons/Docs.info") (dest @default-dest))
  147. )
  148.  
  149. ;************************************
  150. ;  (NI)  Finish Copying Docs + Icon
  151. ;************************************
  152.  
  153. ;*********************************************
  154. ; (NI)  Start Copying AppIcon Drawer + Icon
  155. ;*********************************************
  156.  
  157.  
  158. (if (= #ICONS 1)
  159. (copyfiles (source "KaiClock/AppIcon")
  160.            (dest (tackon @default-dest "AppIcon"))           
  161. (all)
  162. )
  163. )
  164. (if (= #ICONS 1)
  165. (copyfiles (source "KaiClock/Icons/NewIcons/AppIcon")
  166.            (dest (tackon @default-dest "AppIcon"))           
  167. (all)
  168. )
  169. )
  170. (if (= #ICONS 1)
  171.  (copyfiles (source "KaiClock/Icons/NewIcons/AppIcon.info") (dest @default-dest))
  172. )
  173.  
  174. ;**********************************************
  175. ; (NI)  Finish Copying AppIcon Drawer + Icon
  176. ;**********************************************
  177.  
  178. ;***************************************
  179. ; (NI)  Start Copying KaiClock + Icon 
  180. ;***************************************
  181.  
  182.  
  183. (if (= #ICONS 1)
  184.  (copyfiles (source "KaiClock/KaiClock") (dest @default-dest))
  185. )
  186.  
  187. (if (= #ICONS 1)
  188.  (copyfiles (source "KaiClock/Icons/NewIcons/Kaiclock.info") (dest @default-dest))
  189. )
  190.  
  191. ;******************************************
  192. ; (NI)  Finishing Copying KaiClock + Icon 
  193. ;******************************************
  194.  
  195. ;******************
  196. ;* Standard Icons *
  197. ;******************
  198.  
  199.  
  200. ;**********************************
  201. ; (SI)  Start Copying Docs + Icon
  202. ;**********************************
  203.  
  204. (if (= #ICONS 2)
  205. (copyfiles (source "KaiClock/Docs")
  206.            (dest (tackon @default-dest "Docs"))           
  207. (all)
  208. )
  209. )
  210. (if (= #ICONS 2)
  211.  (copyfiles (source "KaiClock/Docs.info") (dest @default-dest))
  212. )
  213.  
  214. ;************************************
  215. ;  (SI)  Finish Copying Docs + Icon
  216. ;************************************
  217.  
  218. ;*********************************************
  219. ; (SI)  Start Copying AppIcon Drawer + Icon
  220. ;*********************************************
  221.  
  222.  
  223. (if (= #ICONS 2)
  224. (copyfiles (source "KaiClock/AppIcon")
  225.            (dest (tackon @default-dest "AppIcon"))           
  226. (all)
  227. )
  228. )
  229. (if (= #ICONS 2)
  230.  (copyfiles (source "KaiClock/AppIcon.info") (dest @default-dest))
  231. )
  232.  
  233. ;**********************************************
  234. ; (SI)  Finish Copying AppIcon Drawer + Icon
  235. ;**********************************************
  236.  
  237. ;***************************************
  238. ; (SI)  Start Copying KaiClock + Icon 
  239. ;***************************************
  240.  
  241.  
  242. (if (= #ICONS 2)
  243.  (copyfiles (source "KaiClock/KaiClock") (dest @default-dest))
  244. )
  245.  
  246. (if (= #ICONS 2)
  247.  (copyfiles (source "KaiClock/Kaiclock.info") (dest @default-dest))
  248. )
  249.  
  250. ;******************************************
  251. ; (SI)  Finishing Copying KaiClock + Icon 
  252. ;******************************************
  253. (complete 100)
  254.  
  255.  
  256.  
  257.